home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / mcbrown1 < prev    next >
Lisp/Scheme  |  1998-10-26  |  2KB  |  94 lines
  1. ; Movement IV - OUT FROM THE EDGE   for violin, sax and 
  2. ; electric piano - part 2
  3.  
  4. (setq mat1 (gen-noise-brownian 9 0.4 0.4))
  5. (setq mat2 (gen-noise-brownian 7 0.4 0.4))
  6. (setq mat3 (gen-noise-brownian 5 0.4 0.4))
  7.  
  8. (setq zone1 (vector-round 192 768 mat3))
  9.  
  10. (setq vel1 (vector-round 32 120 mat1))
  11.  
  12. (setq ptch1 (vector-to-symbol a o mat1))
  13. (setq ptch2 (vector-to-symbol a j mat2))
  14. (setq ptch3 (vector-to-symbol a e mat3))
  15.  
  16. (create-tonality sumscale1 '(1 2 4 7 12 8 9 6 4 11))
  17. (create-tonality sumscale2 '(1 2 5 9 4 3 9 2 1))
  18. (create-tonality sumscale3 '(1 2 6 11 8 10 9 10))
  19.  
  20. (setq tonal
  21.   (symbols-to-tonality
  22.      symbols ptch3
  23.      transpose '((0 1 2 3 4 5 6 7 8 9)
  24.                  (0 1 2 3 4 5 6 7 8) 
  25.                  (0 1 2 3 4 5 6 7))
  26.      mapping (activate-tonality 
  27.               (sumscale1 c 3) (sumscale2 c 3) (sumscale3 c 3))
  28.    )
  29. )
  30.  
  31. (setq tonal1
  32.   (symbols-to-tonality
  33.      symbols ptch3
  34.      transpose '((0 1 2 3 4 5 6 7 8 9)
  35.                  (0 1 2 3 4 5 6 7 8) 
  36.                  (0 1 2 3 4 5 6 7))
  37.      mapping (activate-tonality 
  38.                 (sumscale1 c 4) (sumscale2 c 4) (sumscale3 c 4))
  39.   )
  40. )
  41.  
  42. (setq tonal2
  43.   (symbols-to-tonality
  44.      symbols ptch3
  45.      transpose '((0 1 2 3 4 5 6 7 8 9)
  46.                  (0 1 2 3 4 5 6 7 8) 
  47.                  (0 1 2 3 4 5 6 7))
  48.      mapping (activate-tonality 
  49.                 (sumscale1 c 5) (sumscale2 c 5) (sumscale3 c 5))
  50. ))
  51.  
  52. (def-symbol 
  53.   pianorh (gen-random-variate 0.9 0.05 -2 2 (find-change ptch1))
  54.   pianolh (find-change ptch1) 
  55.   sax (find-change ptch3)
  56.   violin (find-change ptch2)
  57. )
  58.  
  59. (def-length 
  60.   pianorh '(1/8)
  61.   pianolh '(1/8)
  62.   sax '(1/8)
  63.   violin '(1/8)
  64. )
  65.  
  66. (def-velocity 
  67.   pianorh vel1
  68.   pianolh vel1
  69.   sax vel1
  70.   violin vel1
  71. )
  72.  
  73. (def-zone 
  74.   pianorh zone1
  75.   pianolh zone1
  76.   sax zone1
  77.   violin zone1
  78. )
  79.  
  80. (def-tonality 
  81.   pianorh tonal1
  82.   pianolh tonal
  83.   sax tonal1
  84.   violin tonal2
  85. )
  86.  
  87. (compile-instrument-p "ccl;output:" "trio"
  88.   pianorh
  89.   pianolh
  90.   violin
  91.   sax
  92. )
  93.  
  94. ; set tempo at 1/4 = 150. Molto rit during 3-4 bars.